object Form1: TForm1
  Left = 246
  Top = 148
  ActiveControl = ComboBox1
  AutoScroll = False
  Caption = 'Form1'
  ClientHeight = 216
  ClientWidth = 414
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Scaled = False
  OnCreate = FormCreate
  TextHeight = 13
  object Bevel1: TBevel
    Left = 240
    Top = 96
    Width = 57
    Height = 57
    Style = bsRaised
  end
  object Label2: TLabel
    Left = 264
    Top = 104
    Width = 6
    Height = 13
    Caption = '0'
  end
  object Label3: TLabel
    Left = 264
    Top = 136
    Width = 6
    Height = 13
    Caption = '0'
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 414
    Height = 81
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 48
      Width = 82
      Height = 13
      Caption = 'Name  ID column'
    end
    object Label4: TLabel
      Left = 16
      Top = 16
      Width = 111
      Height = 13
      Caption = 'Name table to save IDs'
    end
    object Edit1: TEdit
      Left = 152
      Top = 48
      Width = 145
      Height = 20
      TabOrder = 1
    end
    object ComboBox1: TComboBox
      Left = 152
      Top = 16
      Width = 145
      Height = 20
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object Button1: TButton
    Left = 72
    Top = 96
    Width = 161
    Height = 25
    Caption = 'Show New ID Value'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 72
    Top = 128
    Width = 161
    Height = 25
    Caption = 'Show Current ID Value'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object Database1: TDatabase
    DatabaseName = 'TEST'
    LoginPrompt = False
    Left = 16
    Top = 176
  end
  object RtDbGenID1: TRtDbGenID
    OnAccessClose = True
    Table = Table1
    Left = 80
    Top = 176
  end
  object Table1: TTable
    DatabaseName = 'TEST'
    Left = 48
    Top = 176
  end
end